home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
USINGI.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
2KB
|
46 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-12-22 ╟─╖
│ │ FILE NAME USINGI$ .DMO ║ by ╘════════════════─ ║ ║
│ │ LIBRARY DAS-NB02.PBL ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ ..................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB02.INC"
COLOR 7, 0
CLS
? "┌──────────────────────────────────────────────────────────────────────
? "│ fIusing$( Nbr&&, Length% )
? "├───────────────────────────────────────────────────────────────────────
? "│ PRINT USING and USING$ fall a bit short when formatting QUAD integers.
? "│ This function is specifically designed to fill that gap. It is used
? "│ just like USING$ but the commas are assumed so you need not send a
? "│ mask just the final length of the required string.
? "│ NOTE: pbvUsingChrs is used to determine which 'comma' to use.
? "└─────────────────────────────────────────────────────────────────────────
?
Nbr&& = &b0111111111111111111111111111111111111111111111111111111111111111
PRINT fIusing$( Nbr&&, 18 )
PRINT
PRINT fIusing$( Nbr&&, 26 )
MID$( pbvUsingChrs, 3, 2 ) = ".,"
Nbr&& = &b1000000000000000000000000000000000000000000000000000000000000001
PRINT fIusing$( Nbr&&, 26 )
MID$( pbvUsingChrs, 3, 2 ) = ",."
Nbr&& = -1
PRINT fIusing$( Nbr&&, 26 )